home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / piblist.lbr / SKIPBL.PQS / skipbl.pas
Pascal/Delphi Source File  |  1985-03-21  |  2KB  |  29 lines
  1. (*---------------------------------------------------------------------------*)
  2. (*                SkipBl -- Skip blanks in PibList command line              *)
  3. (*---------------------------------------------------------------------------*)
  4.  
  5. PROCEDURE SkipBl;
  6.  
  7. (*---------------------------------------------------------------------------*)
  8. (*                                                                           *)
  9. (*     Routine:  SkipBl                                                      *)
  10. (*                                                                           *)
  11. (*     Purpose:  Skips blanks in PibList command line                        *)
  12. (*                                                                           *)
  13. (*     Calling Sequence:                                                     *)
  14. (*                                                                           *)
  15. (*        SkipBl;                                                            *)
  16. (*                                                                           *)
  17. (*     Calls:    None                                                        *)
  18. (*                                                                           *)
  19. (*     Called By:   Display_Screen                                           *)
  20. (*                                                                           *)
  21. (*---------------------------------------------------------------------------*)
  22.  
  23. BEGIN  (* SkipBl *)
  24.  
  25.    WHILE ( command[cind] = ' ' ) AND NOT ( command[cind] = nul ) DO
  26.       cind := cind + 1;
  27.  
  28. END    (* SkipBl *);
  29.